frmWin Easywin Form15 Picture2 Picture1 mpic5 mpic3 mpic1 mpic2 mpic4 micon5 Main Icon5 Arial micon3 Main Icon3 Arial micon4 Main Icon4 Arial micon2 Main Icon2 Arial mIcon1 Main Icon1 Arial lblmyfolder My Folders MS Sans Serif Label7 My Files MS Sans Serif lblMainapps Main Applications MS Sans Serif Line2 lblhotlinks Hot Links MS Sans Serif iconmyfiles \\\\\P \\\\\\ \\\\\P \\\\P YYYP YYYP wwwwp wwwwp wwwwx wwwwx wwwwp icon5 Icon5 icon4 Icon4 icon3 Icon3 icon2 Icon2 icon1 Icon1 mnufile &File mnuicon &NewShortcut mnuopen O&pen mnuexit E&xit mnuoption Options mnubackcolor Back Ground mnuopen_Click mnuexit_Click frmdrag mnuicon_Click frmicont mnubackcolor_Clickw frmbackcolor Form_Load icon1_Click# program1g icon2_Clickv program24 icon3_Click program3O icon4_Click program4p icon5_Click program5 Pic1_Click pic2_Click Pic3_Click Pic4_Click Pic5_Click no5bZ focus4 getfocus[ unload file1 file2 file3K file4A file5 sfile1{ sfile2 sfile3 sfile4 sfile5 Label1_Click8 Timer1_Timer label4 cpation label3f label caption Pic1_DragOver Source Control. State Pic1_MouseDown Button Shift frmwinW winstate WindowStates iconmyfiles_Click frmmyfiles Label7_Click Label5_Click mpic1_Click mprogram1 mfile1 nom1b mpic2_Click mprogram2- nom2b mfile26 mpic3_Click mprogram3 mfile3E nom3be mpic4_Click nom4b} mprogram4 mfile4 mpic5_Click mprogram5' nom5b, mprogram15\ mfile5 micon3_Click mIcon1_Click nom1a micon2_Click nomba nom2a micon4_Click nom4a micon5_Click nom5a qwinO micon1l filnum getvalues counter mprogram2print Picture2_Click filnum1 creates clicking icon1 Visible Form_Load this part of the code needes some work e it is only partly finished it opens the dat files to see what has been set from last usagee have tryed but keep geting problems here is my codem this code would create errors when clicking main icon1 or 2 therefore it has been disabled Dim filnum As Integer filnum = FreeFilee Dim getvalues() As Stringa Dim counter As Integer counter = 0 Open "c:\qwin\mprogram1.dat" For Input As filnum Do Until EOF(filnum)a counter = counter + 1 ReDim Preserve getvalues(counter) Line Input #filnum, getvalues(counter) Close filnum Dim a1 As Integero For a1 = 0 To UBound(getvalues)r Let mprogram1 = getvalues(a1) Next a1 counter = 0u Open "c:\qwin\mfile1.dat" For Input As filnumn Do Until EOF(filnum)t counter = counter + 1 ReDim Preserve getvalues(counter) Line Input #filnum, getvalues(counter) Close filnum Dim a2 As Integerl For a2 = 0 To UBound(getvalues)s Let mfile1 = getvalues(a2)s Next a2m counter = 0e Open "c:\qwin\mprogram2.dat" For Input As filnum Do Until EOF(filnum). counter = counter + 1 ReDim Preserve getvalues(counter) Line Input #filnum, getvalues(counter) Close filnum Dim b1 As Integerl For b1 = 0 To UBound(getvalues)s Let mprogram2 = getvalues(b1) Next b1m counter = 0g Open "c:\qwin\mfile2.dat" For Input As filnumn Do Until EOF(filnum)t counter = counter + 1 ReDim Preserve getvalues(counter) Line Input #filnum, getvalues(counter) Close filnum Dim b2 As Integerl For b2 = 0 To UBound(getvalues)s Let mprogram2 = getvalues(b2) Next b2m icon1_Click icon2_Click icon3_Click icon4_Click icon5_Click iconmyfiles_Click Label7_Click mIcon1_Click c:\qwin\mprogram1.dat c:\qwin\mfile1.dat c:\qwin\default.dat micon2_Click c:\qwin\mprogram2.dat c:\qwin\mfile2.dat c:\qwin\default.dat micon3_Click c:\qwin\mprogram2.dat c:\qwin\mfile2.dat c:\qwin\default.dat micon4_Click c:\qwin\mprogram4.dat c:\qwin\mfile4.dat c:\qwin\default.dat micon5_Click c:\qwin\mprogram5.dat c:\qwin\mfile5.dat c:\qwin\default.dat mnubackcolor_Click mnuexit_Click mnuicon_Click mnuopen_Click mpic1_Click c:\qwin\mprogram1.dat c:\qwin\mfile1.dat c:\qwin\default.dat mpic2_Click c:\qwin\mprogram2.dat c:\qwin\mfile2.dat c:\qwin\default.dat mpic3_Click c:\qwin\mprogram3.dat c:\qwin\mfile3.dat c:\qwin\default.dat mpic4_Click c:\qwin\mprogram4.dat c:\qwin\mfile4.dat c:\qwin\default.dat mpic5_Click c:\qwin\mprogram5.dat c:\qwin\mfile5.dat c:\qwin\default.dat Pic1_Click pic2_Click Pic3_Click Pic4_Click Pic5_Click Timer1_Timer